home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / puzzler boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  38 lines
  1. 0 poke53280,1:poke53281,1
  2. 1 printchr$(142)
  3. 10 print"[147][144][146][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
  4. 20 print"B                                      B";
  5. 30 print"B   loadstar presents                  [144]B";
  6. 40 print"B                                      B";
  7. 50 print"B            [160]                         B";
  8. 60 print"B                          [146]            [144]B";
  9. 70 print"B                         [160][154] [146]           [144]B";
  10. 80 print"B          pixel puzzler  [160][154] [146]           [144]B";
  11. 90 print"B                          [154] [146]           [144]B";
  12. 100 print"B                          [154] [146]           [144]B";
  13. 110 print"B         [154]                  [146]           [144]B";
  14. 120 print"B                                      B";
  15. 130 print"B                                      B";
  16. 140 print"B                                      B";
  17. 150 print"B      written by alan gardner         [144]B";
  18. 160 print"B                                      B";
  19. 170 print"B    loadstar is not public domain     [144]B";
  20. 180 print"B please respect the author's rights.  [144]B";
  21. 190 print"B                                      B";
  22. 200 print"B           copyright 1987             [144]B";
  23. 210 print"B                                      B";
  24. 220 print"B                                      B";
  25. 230 print"B                                      B";
  26. 240 print"[194]           press any key              [194]";
  27. 250 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  28. 260 poke241,peek(241)or128
  29. 270 print"[145]":print"[148][173]";:print"";
  30. 280 :
  31. 290 poke198,0:wait198,1:poke198,0
  32. 300 print"[147]"
  33. 310 printspc(7)"[206]ow going to the [208]uzzler..."
  34. 320 :
  35. 330 print"load"chr$(34)"pixel puzzler"chr$(34)",8"
  36. 340 print"run"
  37. 350 poke631,13:poke632,13:poke198,2:end
  38.